package body Liste_Categories is
	function Get_Categorie (C: Categorie_Verre) return Ptr_Categorie is
	begin
		return Liste_Cat(C);
	end Get_Categorie;
	
    procedure Init is
    begin
        Liste_Cat := (others => Null);
    end Init;

    procedure Ajouter (Cat : in Ptr_Categorie) is
    begin
        Liste_Cat(Get_Categorie_Verre(Cat.all)) := Cat;
    end Ajouter;

    function Appartient (C : Categorie_Verre) return Boolean is
    begin
        return Liste_Cat(C) /= Null;
    end Appartient;

    function Appartient (C : Ptr_Categorie) return Boolean is
    begin
        return Appartient(Get_Categorie_Verre(C));
    end Appartient;
end Liste_Categories;